  10 clear 
  20 &(9)=37
  30 BC=250;FC=7
  40 for A=1to 150
  50 H=rnd (160)-80;V=rnd (88)-44
  60 box H,V,1,1,rnd (2)
  70 next A
  80 &(9)=85;&(1)=250
  90 &(2)=108;&(11)=250
 100 CX=-44;CY=0
 110 print "ARCADIAN
 120 line 0,0,4
 130 for Q=0to 35step 2
 140 line 75,Q,3;line 0,0,4
 150 line 75,-Q,3;line 0,0,4
 160 next Q
 170 L=7;for Z=48to 51
 180 box -Z,0,1,L,1
 190 L=L-2
 200 next Z
 210 box -22,0,50,9,3
 220 for Q=0to 35
 230 line 75,Q,3;line 0,0,4
 240 line 75,-Q,3;line 0,0,4
 250 next Q
 260 goto 220
:return ;run 
